unit segModuloTelas;

interface

uses prsBase, Rtti, prsAtributos;

type

  [attTabela('ModuloTelas')]
  TModuloTelas = class(TTabela)
  private
    FModulo: integer;
    FTela: integer;
    FVisualizacao: string;
    procedure SetModulo(const Value: integer);
    procedure SetTela(const Value: integer);
    procedure SetVisualizacao(const Value: string);
  public
    property Modulo: integer read FModulo write SetModulo;
    property Tela: integer read FTela write SetTela;
    property Visualizacao: string read FVisualizacao write SetVisualizacao;
  end;

implementation

{ TModuloTelas }

procedure TModuloTelas.SetModulo(const Value: integer);
begin
  FModulo := Value;
end;

procedure TModuloTelas.SetTela(const Value: integer);
begin
  FTela := Value;
end;

procedure TModuloTelas.SetVisualizacao(const Value: string);
begin
  FVisualizacao := Value;
end;

end.
